0 REM:ARCAID2:        E.G. 04-NOV-86
10 IFGL=190THEN150
20 IFGL=360THEN350
30 REM: EXTRACT FROM ARC
40 PRINT"[147]         [197]XTRACT FROM AN [193][210][195] FILE [146]"
50 PRINT"        [201][206][211][197][210][212] [196][201][211][203] WITH [193][210][195] FILE."
60 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
70 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO [205]AIN [205]ENU."
80 PRINT"       [193]NY OTHER KEY WILL CONTINUE.":POKE198,0
90 GETA$:IFA$=""THEN90
91 IFA$<>" "THEN110
95 PRINT"[147] [201][206][211][197][210][212] [196][201][211][203] WITH [193][210][195] [193][201][196] IN DRIVE 8,0"
97 PRINT"           AND PRESS ANY KEY."
98 GETA$:IFA$=""THEN98
99 PRINT"[147]";SPC(15);"[204]OADING..."
100 PRINT"[144]LOAD"CHR$(34)"ARC AID ?.?"CHR$(34)",8";:GOTO590
110 IFA$<>"$"THEN180
120 PRINT"[147]     [211][200][201][198][212] PAUSES,  [210][213][206]/[211][212][207][208] ABORTS"
130 PRINT"DIR":PRINT"":GL=190
140 GOTO590
150 PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":POKE198,0:GL=0
160 GETA$:IFA$=""THEN160
170 PRINT"[147]";:RUN
180 INPUT"[193][210][195] FILENAME";F$:IFF$=""THENRUN
182 IFRIGHT$(F$,4)<>".ARC"THENF$=F$+".ARC"
210 PRINT"[156][207]N WHAT DRIVE CAN THIS":INPUT"FILE BE FOUND  8,0[157][157][157][157][157]";DV,DR
220 GOSUB380:SR$=DR$:IFSR$=""THEN210
230 PRINT"[159][207]N WHAT DRIVE SHOULD THIS":INPUT"FILE BE DE-[193][210][195]ED  8,0[157][157][157][157][157]";DV,DR
240 GOSUB490:DS$=DR$:IFDS$=""THEN230
260 L=LEN(F$):NF$=""
280 FORI=1TOL
290 IFMID$(F$,I,1)=" "THENNF$=NF$+"?":GOTO310
300 NF$=NF$+MID$(F$,I,1)
310 NEXT
330 PRINT"[147]ARC/X"DS$+" "+SR$+NF$:PRINT"":GL=360
340 GOTO590
350 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
360 GETA$:IFA$=""THEN360
370 RUN
380 DR$=""
390 IFDV=8ANDDR=0THENDR$="A:"
400 IFDV=8ANDDR=1THENDR$="B:"
410 IFDV=9ANDDR=0THENDR$="C:"
420 IFDV=9ANDDR=1THENDR$="D:"
430 IFDV=10ANDDR=0THENDR$="E:"
440 IFDV=10ANDDR=1THENDR$="F:"
450 IFDV=11ANDDR=0THENDR$="G:"
460 IFDV=11ANDDR=1THENDR$="H:"
470 RETURN
480 END
490 DR$=""
500 IFDV=8ANDDR=0THENDR$="A"
510 IFDV=8ANDDR=1THENDR$="B"
520 IFDV=9ANDDR=0THENDR$="C"
530 IFDV=9ANDDR=1THENDR$="D"
540 IFDV=10ANDDR=0THENDR$="E"
550 IFDV=10ANDDR=1THENDR$="F"
560 IFDV=11ANDDR=0THENDR$="G"
570 IFDV=11ANDDR=1THENDR$="H"
580 RETURN
590 POKE631,13:POKE632,71:POKE633,207:POKE635,13:POKE636,13:POKE198,5:GOTO480